home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / tess / tess-1.0 / p1.m < prev    next >
Encoding:
Text File  |  1992-06-30  |  1.6 KB  |  94 lines
  1. #import "aGroup-inter.h"
  2. #import "p1.h"
  3.  
  4. @implementation p1
  5. - defaultConfig
  6. {
  7.   [self singleAngleSetup: 0.2];
  8.   return self;
  9. }
  10.  
  11. - generator: (NXCoord) x : (NXCoord) y 
  12. {     
  13.   [self clip: x : y];
  14.   PSstroke();
  15.   return self;
  16. }
  17.  
  18. - resizeGenerator
  19. {
  20.   latticesize.height = frame.size.height;
  21.   latticesize.width = frame.size.width;
  22.   upx = [angle1slide floatValue] * latticesize.width;
  23.   printf("Angleslider%f\n",[angle1slide floatValue]);
  24.   upy = latticesize.height;
  25.   overx = latticesize.width - abs(upx);
  26.   gravy = upy/2;
  27.   gravx = (upx+overx)/2;
  28.   return self;
  29. }
  30.  
  31. - clip: (NXCoord) x: (NXCoord) y 
  32. { 
  33.   if(upx < 0.0)
  34.     PSmoveto(x-upx,y);
  35.   else 
  36.     PSmoveto(x,y);
  37.   PSrlineto(overx,0);
  38.   PSrlineto(upx,upy);
  39.   PSrlineto(-overx,0);
  40.   PSclosepath();
  41.   PSclip();
  42.   return self;
  43. }
  44.  
  45. - makeLatticeUnitAt: (NXPoint *) point fromImage: srcimg 
  46. {
  47.   id imgrep;
  48.   NXPoint pt;
  49.   
  50.   pt.x = - point->x ;
  51.   pt.y = - point->y ;
  52.   imgrep = [srcimg bestRepresentation];
  53.   PSgsave();
  54.   PStranslate(-gravx,-gravy);
  55.   [self clip:0.0:0.0];
  56.   [imgrep drawAt: &pt];
  57.   PSgrestore();
  58.   return self;
  59. }
  60.  
  61. - rightTranslatePoint: (NXPoint *) pt
  62. {
  63.   pt->x += overx;
  64.   pt->y += 0;
  65.   return self;
  66. }
  67. - leftTranslatePoint: (NXPoint *) pt
  68. {
  69.   pt->x -= overx;
  70.   pt->y += 0;
  71.   return self;
  72. }
  73.  
  74. - isRigidLattice { return NO; }
  75.  
  76. - upTranslatePoint: (NXPoint *)pt
  77. {
  78.   pt->x += upx;
  79.   pt->y += upy;
  80.   return self;
  81. }
  82.  
  83. - singleAngleSetup: (float) a
  84. {
  85.   [super singleAngleSetup: a];
  86.   [angle1slide setMaxValue: 0.9];
  87.   [angle1slide setMinValue: -0.9];
  88.   [angle1slide setAction: @selector(anglesDidChange)];
  89.   [angle1slide setTarget: self];
  90.   return self;
  91. }
  92.  
  93. @end
  94.